object FFatura: TFFatura
  Left = 222
  Top = 131
  Width = 896
  Height = 611
  Caption = 'Faturamento'
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  OldCreateOrder = False
  Position = poDesktopCenter
  PixelsPerInch = 96
  TextHeight = 13
  object DBGrid1: TDBGrid
    Left = 0
    Top = 0
    Width = 873
    Height = 529
    DataSource = ds_fatura
    TabOrder = 0
    TitleFont.Charset = DEFAULT_CHARSET
    TitleFont.Color = clWindowText
    TitleFont.Height = -11
    TitleFont.Name = 'MS Sans Serif'
    TitleFont.Style = []
  end
  object Button1: TButton
    Left = 319
    Top = 540
    Width = 75
    Height = 25
    Caption = '&Incluir'
    TabOrder = 1
    OnClick = Button1Click
  end
  object Button2: TButton
    Left = 394
    Top = 540
    Width = 75
    Height = 25
    Caption = '&Alterar'
    TabOrder = 2
  end
  object Button3: TButton
    Left = 469
    Top = 540
    Width = 75
    Height = 25
    Caption = '&Excluir'
    TabOrder = 3
  end
  object Button4: TButton
    Left = 544
    Top = 540
    Width = 75
    Height = 25
    Caption = 'Procurar'
    TabOrder = 4
  end
  object Button5: TButton
    Left = 620
    Top = 540
    Width = 75
    Height = 25
    Caption = 'Relatorios'
    TabOrder = 5
  end
  object Button6: TButton
    Left = 696
    Top = 540
    Width = 105
    Height = 25
    Caption = 'Emissao Nota Fiscal'
    TabOrder = 6
    OnClick = Button6Click
  end
  object Button7: TButton
    Left = 802
    Top = 540
    Width = 75
    Height = 25
    Caption = '&Sair'
    TabOrder = 7
    OnClick = Button7Click
  end
  object IBCConnection1: TIBCConnection
    Database = 'C:\brasfort\BRASFORT.FDB'
    Options.Charset = 'win1252'
    ClientLibrary = 'c:\brasfort\gds32.dll'
    Username = 'sysdba'
    Password = 'masterkey'
    Server = 'localhost'
    Connected = True
    Left = 160
    Top = 544
  end
  object faturamento: TIBCQuery
    Connection = IBCConnection1
    SQL.Strings = (
      'select * from faturamento')
    Active = True
    Left = 232
    Top = 544
    object faturamentoNOTAFISCAL: TIntegerField
      FieldName = 'NOTAFISCAL'
      Required = True
    end
    object faturamentoCLIENTE: TIntegerField
      FieldName = 'CLIENTE'
    end
    object faturamentoEMISSAO: TDateField
      FieldName = 'EMISSAO'
    end
    object faturamentoVENCTO: TDateField
      FieldName = 'VENCTO'
    end
    object faturamentoRECEBIMENTO: TDateField
      FieldName = 'RECEBIMENTO'
    end
    object faturamentoCANCELAMENTO: TDateField
      FieldName = 'CANCELAMENTO'
    end
    object faturamentoIMPRESSA: TStringField
      FieldName = 'IMPRESSA'
      FixedChar = True
      Size = 1
    end
    object faturamentoTOTAL: TFloatField
      FieldName = 'TOTAL'
    end
    object faturamentoIRRF: TFloatField
      FieldName = 'IRRF'
    end
    object faturamentoCSLL: TFloatField
      FieldName = 'CSLL'
    end
    object faturamentoPIS: TFloatField
      FieldName = 'PIS'
    end
    object faturamentoCOFINS: TFloatField
      FieldName = 'COFINS'
    end
    object faturamentoFEDERAL: TFloatField
      FieldName = 'FEDERAL'
    end
    object faturamentoALIQISS: TFloatField
      FieldName = 'ALIQISS'
    end
    object faturamentoISS: TFloatField
      FieldName = 'ISS'
    end
    object faturamentoINSS: TStringField
      FieldName = 'INSS'
      Size = 7
    end
    object faturamentoVALEALIMENTACAO: TFloatField
      FieldName = 'VALEALIMENTACAO'
    end
    object faturamentoVALETRANSPORTE: TFloatField
      FieldName = 'VALETRANSPORTE'
    end
    object faturamentoMATERIAL: TStringField
      FieldName = 'MATERIAL'
      FixedChar = True
      Size = 1
    end
    object faturamentoVALORMATERIAL: TFloatField
      FieldName = 'VALORMATERIAL'
    end
    object faturamentoBANCO_RECEBIMENTO: TIntegerField
      FieldName = 'BANCO_RECEBIMENTO'
    end
    object faturamentoCCUSTO1: TStringField
      FieldName = 'CCUSTO1'
      Size = 3
    end
    object faturamentoCCUSTO2: TStringField
      FieldName = 'CCUSTO2'
      Size = 3
    end
    object faturamentoEMPRESA: TIntegerField
      FieldName = 'EMPRESA'
    end
  end
  object ds_fatura: TIBCDataSource
    DataSet = faturamento
    Left = 200
    Top = 544
  end
  object XMLDocument1: TXMLDocument
    Active = True
    Left = 120
    Top = 544
    DOMVendorDesc = 'MSXML'
  end
  object QueryItens: TIBCQuery
    Connection = IBCConnection1
    SQL.Strings = (
      'select *from itens')
    Active = True
    Left = 328
    Top = 328
    object QueryItensEMPRESA: TIntegerField
      FieldName = 'EMPRESA'
      Required = True
    end
    object QueryItensNOTAFISCAL: TIntegerField
      FieldName = 'NOTAFISCAL'
      Required = True
    end
    object QueryItensDESCRICAO: TStringField
      FieldName = 'DESCRICAO'
      Size = 500
    end
    object QueryItensUNITARIO: TFloatField
      FieldName = 'UNITARIO'
    end
    object QueryItensTOTAL: TFloatField
      FieldName = 'TOTAL'
    end
    object QueryItensCODIGOSERVICO: TIntegerField
      FieldName = 'CODIGOSERVICO'
    end
  end
  object QueryClientes: TIBCQuery
    Connection = IBCConnection1
    SQL.Strings = (
      'select *from clientes')
    Active = True
    Left = 328
    Top = 360
    object QueryClientesCODIGO: TIntegerField
      FieldName = 'CODIGO'
      Required = True
    end
    object QueryClientesNOME: TStringField
      FieldName = 'NOME'
      Size = 58
    end
    object QueryClientesENDERECO: TStringField
      FieldName = 'ENDERECO'
      Size = 58
    end
    object QueryClientesCIDADE: TStringField
      FieldName = 'CIDADE'
      Size = 30
    end
    object QueryClientesUF: TStringField
      FieldName = 'UF'
      Size = 2
    end
    object QueryClientesCEP: TStringField
      FieldName = 'CEP'
      Size = 10
    end
    object QueryClientesFONE1: TStringField
      FieldName = 'FONE1'
      Size = 10
    end
    object QueryClientesFONE2: TStringField
      FieldName = 'FONE2'
      Size = 10
    end
    object QueryClientesFAX: TStringField
      FieldName = 'FAX'
      Size = 10
    end
    object QueryClientesCNPJ: TStringField
      FieldName = 'CNPJ'
      Size = 14
    end
    object QueryClientesINSCRICAO: TStringField
      FieldName = 'INSCRICAO'
    end
    object QueryClientesCONTATO: TStringField
      FieldName = 'CONTATO'
      Size = 38
    end
    object QueryClientesESTADUAL: TStringField
      FieldName = 'ESTADUAL'
    end
    object QueryClientesEMAIL: TStringField
      FieldName = 'EMAIL'
      Size = 58
    end
    object QueryClientesEMPRESA: TStringField
      FieldName = 'EMPRESA'
      Size = 1
    end
    object QueryClientesATIVO: TStringField
      FieldName = 'ATIVO'
      Size = 1
    end
    object QueryClientesPUBLICO: TStringField
      FieldName = 'PUBLICO'
      Size = 1
    end
    object QueryClientesBOLETO: TStringField
      FieldName = 'BOLETO'
      Size = 1
    end
    object QueryClientesPORTARIA: TStringField
      FieldName = 'PORTARIA'
      Size = 1
    end
    object QueryClientesIR: TFloatField
      FieldName = 'IR'
    end
    object QueryClientesPIS: TFloatField
      FieldName = 'PIS'
    end
    object QueryClientesCS: TFloatField
      FieldName = 'CS'
    end
    object QueryClientesCOFINS: TFloatField
      FieldName = 'COFINS'
    end
    object QueryClientesCCUSTO0: TStringField
      FieldName = 'CCUSTO0'
      Size = 3
    end
    object QueryClientesCCUSTO1: TStringField
      FieldName = 'CCUSTO1'
      Size = 3
    end
    object QueryClientesRETINSS: TStringField
      FieldName = 'RETINSS'
      Size = 1
    end
    object QueryClientesPAIS: TIntegerField
      FieldName = 'PAIS'
    end
    object QueryClientesIBGE: TIntegerField
      FieldName = 'IBGE'
    end
    object QueryClientesMUNICIPIO: TIntegerField
      FieldName = 'MUNICIPIO'
    end
    object QueryClientesGPS: TStringField
      FieldName = 'GPS'
      Size = 1
    end
    object QueryClientesPAGINA: TStringField
      FieldName = 'PAGINA'
      Size = 80
    end
    object QueryClientesCONTA: TStringField
      FieldName = 'CONTA'
      Size = 6
    end
  end
end
